home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP NTP DefServer.xpl < prev    next >
Text File  |  2002-04-16  |  2KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="5"
  4. "UIPATH"="Network\Network Time Protocol"
  5. "NAME"="NTP Servers Selection"
  6. "OSVERSION"="0000011"
  7. "VERSION"="2.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Set "Server 1" as default server"
  10. "TEXT 2"="Set "Server 2" as default server"
  11. "TEXT 3"="Set "Server 3" as default server"
  12. "TEXT 4"="Set "Server 4" as default server"
  13. "TEXT 5"="Set "Server 5" as default server"
  14. "DESCRIPTION 1"="This plug-in allows you which of the existing server is the default server."
  15. "DESCRIPTION 2"="Default Server means: Windows will try to synchornize with that server first and only try the other servers, when the default server fails."
  16. "DESCRIPTION 3"="IMPORTANT: Always change the default server to a server, that is configured. For example, normally Windows only includes "Server 1" and "Server 2". Setting the default server to "Server 3" wouldn't make any sense in this case."
  17. "DESCRIPTION 4"="By default, Server 1 is the default server."
  18. "AUTHOR"="MacGyver aka Habeeb J. Dihu / TeX HeX of Xteq Systems"
  19. "CONTACTURL"="http://www.macgyver.org/"
  20. "COPYRIGHT"="Copyright ⌐ MacGyver aka Habeeb J. Dihu / Xteq Systems - All Rights Reserved."
  21. "COMMENT 1"="No time like the present. "
  22. "COMMENT 2"="Based on plug-in by Xteq Systems (CptSiskoX)"
  23.  
  24. sPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\@"
  25.  
  26. Sub Plugin_Initialize 
  27.  i=RegReadValue(sPath)
  28.  'MsgInformation i
  29.  if IsNumeric(i) then
  30.     if i>0 and i<6 then
  31.        Call SetUIElement(i,true)
  32.     end if
  33.  end if
  34.  
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  i=0
  39.  
  40.  if GetUIElement(1)=true then i=1
  41.  if GetUIElement(2)=true then i=2
  42.  if GetUIElement(3)=true then i=3
  43.  if GetUIElement(4)=true then i=4
  44.  if GetUIElement(5)=true then i=5
  45.  
  46.  if i>0 then
  47.     Call RegWriteValue(sPath,i,1)
  48.     Call Restart()
  49.  end if
  50. End Sub
  51.  
  52. Sub Plugin_Terminate 
  53. End Sub
  54.  
  55.